'    Copyright 2008 Jan Molnar <jan.molnar@abds.de>
'
'    This file is part of JCQ.

'    JCQ is free software: you can redistribute it and/or modify
'    it under the terms of the GNU General Public License as published by
'    the Free Software Foundation, either version 2 of the License, or
'    (at your option) any later version.

'    JCQ is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU General Public License for more details.

'    You should have received a copy of the GNU General Public License
'    along with JCQ. If not, see <http://www.gnu.org/licenses/>.

''' <summary>
''' The server sends Snac0B02 to inform the client about the minimum usage report
''' intervall. The default is every 1200 hours.
''' Sent by: Server
''' Protocoll: AIM, ICQ
''' </summary>
Public Class Snac0B02
    Inherits Snac

    Public Sub New()
        MyBase.New(&HB, &H2)
    End Sub

    Public Overrides Function CalculateDataSize() As Integer
        Throw New NotImplementedException
    End Function

    Public Overrides Function Serialize() As System.Collections.Generic.List(Of Byte)
        Throw New NotImplementedException
    End Function

    Public Overrides Sub Deserialize(ByVal data As System.Collections.Generic.List(Of Byte))
        MyBase.Deserialize(data)

        Dim index As Integer = Snac.SizeFixPart

        ByteConverter.ToUInt16(data.GetRange(index, 2))
        index += 2

        SetTotalSize(index)
    End Sub

    Private _MinimumReportIntervall As TimeSpan
    Public Property MinimumReportIntervall() As TimeSpan
        Get
            Return _MinimumReportIntervall
        End Get
        Set(ByVal value As TimeSpan)
            _MinimumReportIntervall = value
        End Set
    End Property
End Class
